﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class RegistrosFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As RegistrosBE
        Dim tmpRegistros As RegistrosBE = New RegistrosBE()
        Try
            With tmpRegistros
                .ClaProducto = convertDTFromDb.ConvertString(dr.Item("ClaProducto"))
                .Fecha = convertDTFromDb.convertDateTime(dr.Item("Fecha"))
                .IdEmpresa = convertDTFromDb.ConvertShort(dr.Item("IdEmpresa"))
            End With
            Return tmpRegistros
        Catch ex As Exception
            Throw
        Finally
            tmpRegistros = Nothing
        End Try
    End Function
End Class
